		
writeline1:	
		move.b #$00,continue	;waitflag
		move.l #$00004000,d0	;write location
		bsr calc_vram
		move.l d0,(a3)		
		lea (line1),a5			;line#
		move.w #0024,d4			;text length (decimal)
		add.b #$01, line_number
		rts		
writeline2:	
		move.b #$00,continue	
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line2),a5
		move.w #0023,d4
		add.b #$01, line_number		
		rts	
writeline3:	
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line3),a5
		move.w #0020,d4
		add.b #$01, line_number		
		rts	
writeline4:	
		move.l #$00004400,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line4),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts		
writeline5:	
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line5),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts
writeline6:	
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line6),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts		
writeline7:	
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line7),a5
		move.w #0018,d4
		add.b #$01, line_number		
		rts	
writeline8:	
		move.l #$00004800,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line8),a5
		move.w #0018,d4
		add.b #$01, line_number	
		move.w #$0001,artnum
		rts	
writeline9:	
		move.l #$00004900,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line9),a5
		move.w #0020,d4
		add.b #$01, line_number		
		rts			
writeline10:	
		move.l #$00004a00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line10),a5
		move.w #0016,d4
		add.b #$01, line_number		
		rts	
writeline11:	
		move.l #$00004b00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line11),a5
		move.w #0028,d4
		add.b #$01, line_number		
		rts			
writeline12:	
		move.l #$00004c00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line12),a5
		move.w #0030,d4
		add.b #$01, line_number	
		move.w #$0009,artnum		
		rts	
writeline13:
		bsr clear_page
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line13),a5
		move.w #0028,d4
		add.b #$01, line_number
		move.w #$0001,artnum		
		rts
writeline14:
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line14),a5
		move.w #0020,d4
		add.b #$01, line_number				
		rts
writeline15:
		move.l #$00004200,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line15),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts	
writeline16:
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line16),a5
		move.w #0026,d4
		add.b #$01, line_number		
		rts	
writeline17:
		move.l #$00004400,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line17),a5
		move.w #0028,d4
		add.b #$01, line_number	
		move.w #$0009,artnum		
		rts	
writeline18:
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line18),a5
		move.w #0026,d4
		add.b #$01, line_number		
		rts	
writeline19:
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line19),a5
		move.w #0024,d4
		add.b #$01, line_number	
		move.w #$0001,artnum		
		rts
writeline20:
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line20),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts
writeline21:
		bsr clear_page
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line21),a5
		move.w #0020,d4
		add.b #$01, line_number		
		rts
writeline22:
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line22),a5
		move.w #0026,d4
		add.b #$01, line_number		
		rts		
writeline23:
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line23),a5
		move.w #0028,d4
		add.b #$01, line_number		
		rts	
writeline24:
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line24),a5
		move.w #0020,d4
		add.b #$01, line_number		
		rts	
writeline25:
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line25),a5
		move.w #0032,d4
		add.b #$01, line_number		
		rts	
writeline26:
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line26),a5
		move.w #0032,d4
		add.b #$01, line_number		
		move.w #$0008,artnum		
		rts	
writeline27:
		move.l #$00004800,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line27),a5
		move.w #0016,d4
		add.b #$01, line_number		
		rts
writeline28:
		move.l #$00004900,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line28),a5
		move.w #0024,d4
		add.b #$01, line_number
		move.w #$0002,artnum		
		rts
writeline29:
		move.l #$00004a00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line29),a5
		move.w #0034,d4
		add.b #$01, line_number	
		move.w #$0007,artnum		
		rts
writeline30:
		move.l #$00004b00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line30),a5
		move.w #0032,d4
		add.b #$01, line_number		
		rts
writeline31:
		move.l #$00004c00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line31),a5
		move.w #0024,d4
		add.b #$01, line_number
		move.w #$000a,artnum		
		rts	
writeline32:
		bsr clear_page
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line32),a5
		move.w #0026,d4
		add.b #$01, line_number		
		rts			
writeline33:
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line33),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts		
writeline34:
		move.l #$00004200,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line34),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts	
writeline35:
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line35),a5
		move.w #0026,d4
		add.b #$01, line_number		
		rts	
writeline36:
		move.l #$00004400,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line36),a5
		move.w #0028,d4
		add.b #$01, line_number
		move.w #$0002,artnum		
		rts	
writeline37:
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line37),a5
		move.w #0036,d4
		add.b #$01, line_number	
		move.w #$0006,artnum		
		rts	
writeline38:
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line38),a5
		move.w #0024,d4
		add.b #$01, line_number	
		move.w #$0001,artnum		
		rts	
writeline39:
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line39),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts		
writeline40:
		bsr clear_page
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line40),a5
		move.w #0020,d4
		add.b #$01, line_number		
		rts		
writeline41:
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line41),a5
		move.w #0034,d4
		add.b #$01, line_number		
		rts			
writeline42:
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line42),a5
		move.w #0016,d4
		add.b #$01, line_number		
		rts			
writeline43:
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line43),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts			
writeline44:
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line44),a5
		move.w #0034,d4
		add.b #$01, line_number		
		rts				
writeline45:
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line45),a5
		move.w #0032,d4
		add.b #$01, line_number		
		rts	
writeline46:
		move.l #$00004800,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line46),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts	
writeline47:
		move.l #$00004900,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line47),a5
		move.w #0020,d4
		add.b #$01, line_number	
		move.w #$0005,artnum		
		rts		
writeline48:
		move.l #$00004a00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line48),a5
		move.w #0035,d4
		add.b #$01, line_number		
		rts			
writeline49:
		move.l #$00004b00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line49),a5
		move.w #0028,d4
		add.b #$01, line_number	
		move.w #$0004,artnum		
		rts	
writeline50:
		move.l #$00004c00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line50),a5
		move.w #0030,d4
		add.b #$01, line_number		
		rts	
writeline51:
		bsr clear_page
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line51),a5
		move.w #0026,d4
		add.b #$01, line_number
		move.w #$0003,artnum		
		rts	
writeline52:
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line52),a5
		move.w #0028,d4
		add.b #$01, line_number	
		move.w #$0009,artnum		
		rts	
writeline53:
		move.l #$00004200,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line53),a5
		move.w #0024,d4
		add.b #$01, line_number
		move.w #$0001,artnum		
		rts			
writeline54:
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line54),a5
		move.w #0030,d4
		add.b #$01, line_number		
		rts		
writeline55:
		move.l #$00004400,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line55),a5
		move.w #0026,d4
		add.b #$01, line_number	
		move.w #$0006,artnum		
		rts	
writeline56:
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line56),a5
		move.w #0030,d4
		add.b #$01, line_number
		move.w #$0002,artnum		
		rts	
writeline57:
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line57),a5
		move.w #0022,d4
		add.b #$01, line_number	
		move.w #$0001,artnum		
		rts	
writeline58:
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line58),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts	
writeline59:
		bsr clear_page
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line59),a5
		move.w #0024,d4
		add.b #$01, line_number		
		rts	
writeline60:
		move.l #$00004100,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line60),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts	
writeline61:
		move.l #$00004200,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line61),a5
		move.w #0032,d4
		add.b #$01, line_number		
		rts			
writeline62:
		move.l #$00004300,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line62),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts			
writeline63:
		move.l #$00004400,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line63),a5
		move.w #0032,d4
		add.b #$01, line_number		
		rts	
writeline64:
		move.l #$00004500,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line64),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts			
writeline65:
		move.l #$00004600,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line65),a5
		move.w #0016,d4
		add.b #$01, line_number		
		rts			
writeline66:
		move.l #$00004700,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line66),a5
		move.w #0028,d4
		add.b #$01, line_number		
		rts					
writeline67:
		move.l #$00004800,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line67),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts	
writeline68:
		move.l #$00004900,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line68),a5
		move.w #0018,d4
		add.b #$01, line_number		
		rts		
writeline69:
		move.l #$00004a00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line69),a5
		;move.w #0032,d4
		move.w #0030,d4
		add.b #$01, line_number		
		rts				
writeline70:
		move.l #$00004b00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line70),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts			
writeline71:
		move.l #$00004c00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line71),a5
		move.w #0012,d4
		add.b #$01, line_number		
		rts			
writeline72:
		move.l #$00004d00,d0
		bsr calc_vram
		move.l d0,(a3)		
		lea (line72),a5
		move.w #0014,d4
		add.b #$01, line_number		
		rts	
writeline73:				;ending
		move.l #$0000F000,d0
		bsr calc_vram
		move.l d0,(a3)
		move.w #$0000,(a4)		
		move.w #$0000,(a4)		
	    move.l #$40000010,(a3)   ;write to vsram    
		move.w #$0000,(a4)
		move.w #$0000,(a4)	
		move.w #$8402,(a3)
		lea (end_splash),a5
		move.w #0028,d6   ;height
		move.l #$00004000,d0
		bsr calc_vram
		move.l d0,(a3)
		bsr write_art
		add.b #$01, line_number		
		rts		





		